home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
comm
/
net
/
tf02.lha
/
TinyFugue
/
tf-lib
/
spc-page.tf
< prev
next >
Wrap
Text File
|
1995-08-12
|
579b
|
21 lines
;;;; space-page
;; This set of commands allows the use of the SPACE key to scroll at a
;; --More-- prompt, like tf versions prior to 2.0. The TAB key also works.
;; I personally don't like it, but you might if you can't get the hang of
;; pressing TAB. To enable space-page, just load this file.
/~loaded space_page.tf
/def -i pager = \
/purge -ib" "%; \
/dokey page
/def -i -arh -hMORE = \
/def -i -b" " = /pager
; This part is so TAB still works.
/if /ismacro -mglob -ib"^I" = /dokey page%; /then \
/purge -ib"^I"%;\
/def -i -b"^I" = /pager%;\
/endif